Aminet 7/Aminet 7 - August 1995.iso/Aminet/dev/gui/gengui2.lha/GenGui2/Examples/xarc.gui

Text File | 1995-02-09 | 3.1 KB | 179 lines

#c_source

char *labels[]={"--->","<---",NULL};

#define LPATH       1
#define LARC        2
#define L_FILE       3
#define LVSCROLLER  4
#define LHSCROLLER  5
#define DIR_ID      6
#define PARENT_ID   7
#define GET_ID      8
#define LISTVIEW_ID 9
#define RPATH       10
#define RARC        11
#define R_FILE       12
#define RVSCROLLER  13
#define RHSCROLLER  14
#define COPY_ID     15
#define RENA_ID     16
#define DEL_ID      17
#define NOTE_ID     18
#define PROT_ID     19
#define PACK_ID     20
#define OPT_ID      21

#end_source

Projectname TestPro

vbox
   xspace 3
   yspace 3

   hbox
      vbox
         vbox
            stdline 1
         end
         string
            text "Path:"
            FLAGS PLACETEXT_ABOVE
            id    LPATH
            tags GTST_MaxChars,256
         end
         string
            tags GTST_MaxChars,256
            id    LARC
         end

         hbox
            button
               MinVChar 2
               MinVPix  32
               vrel  1
               id    L_FILE
            end

            scroller
               tags PGA_Freedom,LORIENT_VERT
               tags GTSC_Arrows,16
               id   LVSCROLLER
               hchar 1
               hpix  8
            end
         end
         scroller
            tags PGA_Freedom,LORIENT_HORIZ
            tags GTSC_Arrows,16
            id      LHSCROLLER
            stdline 1
         end

      end // VBox

      vbox
         hchar 12

         cycle
            tags GTCY_Labels,(ULONG)labels
            id   DIR_ID
         end

         button
            text "Parent"
            id PARENT_ID
         end

         button
            text "Get"
            id GET_ID
         end

         button
            vrel 1
            text "Listview"
            id LISTVIEW_ID
         end
      end

      vbox
         vbox
            stdline 1
         end
         string
            text "Path:"
            FLAGS PLACETEXT_ABOVE
            id    RPATH
            tags GTST_MaxChars,256
         end
         string
            tags GTST_MaxChars,256
            id    RARC
         end

         hbox
            button
               MinVChar 2
               MinVPix  32
               vrel  1
               id    R_FILE
            end

            scroller
               tags PGA_Freedom,LORIENT_VERT
               tags GTSC_Arrows,16
               id   RVSCROLLER
               hchar 1
               hpix 8
            end
         end
         scroller
            tags PGA_Freedom,LORIENT_HORIZ
            tags GTSC_Arrows,16
            id      RHSCROLLER
            stdline 1
         end

      end // VBox
   end // HBox

   hbox
      stdline 1
      button
         text "Copy"
         id COPY_ID
      end
      button
         text "Rename"
         id RENA_ID
      end
      button
         text "Delete"
         id  DEL_ID
      end
      button
         text "Filenote"
         id  NOTE_ID
      end
      button
         text "Protect"
         id PROT_ID
      end
      button
         text "Pack"
         id PACK_ID
      end
      button
         text "Options"
         id OPT_ID
      end
   end
end